home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / vi-fun / command-mode next >
Encoding:
Text File  |  1996-09-27  |  9.2 KB  |  245 lines
  1. (keybind describe-bindings (@if-using (USE_INSERT) $esc @fi "H))
  2. {{{  compilcated stuff
  3. {{{  Set arguments
  4. (keybind  vi-set-argument-0 (@if-using (USE_INSERT) $esc @fi "0))
  5. (keybind  vi-set-argument-1 (@if-using (USE_INSERT) $esc @fi "1))
  6. (keybind  vi-set-argument-2 (@if-using (USE_INSERT) $esc @fi "2))
  7. (keybind  vi-set-argument-3 (@if-using (USE_INSERT) $esc @fi "3))
  8. (keybind  vi-set-argument-4 (@if-using (USE_INSERT) $esc @fi "4))
  9. (keybind  vi-set-argument-5 (@if-using (USE_INSERT) $esc @fi "5))
  10. (keybind  vi-set-argument-6 (@if-using (USE_INSERT) $esc @fi "6))
  11. (keybind  vi-set-argument-7 (@if-using (USE_INSERT) $esc @fi "7))
  12. (keybind  vi-set-argument-8 (@if-using (USE_INSERT) $esc @fi "8))
  13. (keybind  vi-set-argument-9 (@if-using (USE_INSERT) $esc @fi "9))
  14. }}}
  15. {{{  moving cursor/display
  16.    {{{  character commands
  17.    {{{  move by 1 char commands
  18.    (keybind vi-backward-character (@if-using (USE_INSERT) $esc @fi "h))
  19.    (keybind vi-backward-character (@if-using (USE_INSERT) $esc @fi C-H))
  20.    (keybind vi-backward-character (@if-using (USE_INSERT) $esc @fi C-?))
  21.  
  22.    (keybind vi-forward-character (@if-using (USE_INSERT) $esc @fi " ))
  23.    (keybind vi-forward-character (@if-using (USE_INSERT) $esc @fi "l))
  24.  
  25.    (keybind vi-underscore (@if-using (USE_INSERT) $esc @fi "-))
  26.    (keybind vi-underscore (@if-using (USE_INSERT) $esc @fi "_))
  27.  
  28.    (keybind vi-previous-line (@if-using (USE_INSERT) $esc @fi "k))
  29.    (keybind vi-previous-line (@if-using (USE_INSERT) $esc @fi C-P))
  30.  
  31.    (keybind vi-plus (@if-using (USE_INSERT) $esc @fi "+))
  32.    (keybind vi-plus (@if-using (USE_INSERT) $esc @fi C-M))
  33.    (keybind vi-plus (@if-using (USE_INSERT) $esc @fi C-J))
  34.  
  35.    (keybind vi-next-line (@if-using (USE_INSERT) $esc @fi C-N))
  36.    (keybind vi-next-line (@if-using (USE_INSERT) $esc @fi "j))
  37.    }}}
  38.    {{{  move to character commands
  39.    ; These are NOT 100% vi compatible, in that
  40.    ; - more than one character can be used as a search string
  41.    ; - return has to be typed before the action is carried out
  42.    ; - these do not yet work as motions as in vi
  43.  
  44.    (keybind find-char-right (@if-using (USE_INSERT) $esc @fi "f))
  45.    (keybind find-char-left(@if-using (USE_INSERT) $esc @fi "F))
  46.    (keybind one-before (@if-using (USE_INSERT) $esc @fi "t))
  47.    (keybind one-after  (@if-using (USE_INSERT) $esc @fi "T))
  48.    (keybind replace-chars (@if-using (USE_INSERT) $esc @fi "r))
  49.    }}}
  50.    }}}
  51.    {{{  word/line/fold
  52.    (keybind vi-backward-word (@if-using (USE_INSERT) $esc @fi "b))
  53.    (keybind vi-backward-WORD (@if-using (USE_INSERT) $esc @fi "B))
  54.    (keybind vi-forward-word (@if-using (USE_INSERT) $esc @fi "w))
  55.    (keybind vi-forward-WORD (@if-using (USE_INSERT) $esc @fi "W))
  56.    (keybind vi-end-word (@if-using (USE_INSERT) $esc @fi "e))
  57.    (keybind vi-start-word (@if-using (USE_INSERT) $esc @fi "E))
  58.  
  59.    (keybind vi-beginning-of-line (@if-using (USE_INSERT) $esc @fi "^))
  60.    (keybind vi-end-of-line (@if-using (USE_INSERT) $esc @fi "$))
  61.    (keybind vi-beginning-of-fold (@if-using (USE_INSERT) $esc @fi "g))
  62.    (keybind vi-end-of-fold (@if-using (USE_INSERT) $esc @fi "v">))
  63.    }}}
  64.    {{{  !sentence, paragraph, section
  65.    ;(
  66.    ;)
  67.    ;[
  68.    ;]
  69.    ;{
  70.    ;}
  71.  
  72.    }}}
  73.    {{{  gotos
  74.    ; '
  75.    ; `
  76.    (keybind proper-percent (@if-using (USE_INSERT) $esc @fi "%))
  77.    (keybind vi-goto-line (@if-using (USE_INSERT) $esc @fi "G)) ; this will be a function
  78.    (keybind vi-goto-column (@if-using (USE_INSERT) $esc @fi "|))
  79.    }}}
  80.    {{{  page
  81.    (keybind vi-C-B (@if-using (USE_INSERT) $esc @fi C-B))
  82.    @if-using ($prev_page) (keybind vi-C-B (@if-using (USE_INSERT) $esc @fi $prev_page)) @fi
  83.    (keybind vi-C-F (@if-using (USE_INSERT) $esc @fi C-F))
  84.    @if-using ($next_page) (keybind vi-C-F (@if-using (USE_INSERT) $esc @fi $next_page)) @fi
  85.  
  86.    (keybind vi-C-B (@if-using (USE_INSERT) $esc @fi C-U))
  87.    (keybind vi-C-F (@if-using (USE_INSERT) $esc @fi C-D))
  88.    (keybind redraw-display- (@if-using (USE_INSERT) $esc @fi C-R))
  89.    (keybind redraw-display- (@if-using (USE_INSERT) $esc @fi C-L))
  90.    }}}
  91.    {{{  display
  92.    (keybind describe-fold (@if-using (USE_INSERT) $esc @fi C-G))
  93.    }}}
  94. }}}
  95. {{{  Folding and motion stuff is bound here
  96.     {{{  folding
  97.      (keybind  crm-V  (@if-using (USE_INSERT) $esc @fi "V))
  98.      ; crm-v does not exist!
  99.  
  100.      (keybind vi-open-fold (@if-using (USE_INSERT) $esc @fi "v "o))
  101.      (keybind vi-close-fold (@if-using (USE_INSERT) $esc @fi "v "c))
  102.      (keybind vi-enter-fold (@if-using (USE_INSERT) $esc @fi "v "e))
  103.      (keybind vi-exit-fold (@if-using (USE_INSERT) $esc @fi "v "x))
  104.      (keybind vi-unfold-fold (@if-using (USE_INSERT) $esc @fi "v "u))
  105.      (keybind vi-auto-header (@if-using (USE_INSERT) $esc @fi "v "h))
  106.      (keybind vi-toggle-file-fold (@if-using (USE_INSERT) $esc @fi "v "f))
  107.      (keybind vi-attach-file-to-fold (@if-using (USE_INSERT) $esc @fi "v "A))
  108.      (keybind vi-set-language (@if-using (USE_INSERT) $esc @fi "v "l))
  109.      (keybind create-line-fold (@if-using (USE_INSERT) $esc @fi "v "v))
  110.      (keybind mtool-top (@if-using (USE_INSERT) $esc @fi "v "t))
  111.      (keybind mtool-bot (@if-using (USE_INSERT) $esc @fi "v "b))
  112.      ; add mtool open and close flds later
  113.     }}}
  114.     {{{  deleting
  115.     (keybind crm-d (@if-using (USE_INSERT) $esc @fi "d))
  116.     (keybind crm-D (@if-using (USE_INSERT) $esc @fi "D))
  117.     (keybind crm-c (@if-using (USE_INSERT) $esc @fi "c))
  118.     (keybind vi-x (@if-using (USE_INSERT) $esc @fi "x))
  119.     }}}
  120.     {{{  yanking & putting
  121.     (keybind vi-put-kill-buffer (@if-using (USE_INSERT) $esc @fi "P))
  122.     (keybind vi-undo-delete-line (@if-using (USE_INSERT) $esc @fi "p))
  123.     (keybind crm-Y (@if-using (USE_INSERT) $esc @fi "Y))
  124.     (keybind crm-y (@if-using (USE_INSERT) $esc @fi "y))
  125.     }}}
  126.     {{{  multiple buffers
  127.     ;(keybind open-buffer   ; open a new buffer
  128.     ;(keybind open-list-buffer; open a new buffer x from internal list
  129.     ;(keybind next-buffer ("v "n))
  130.     ;(keybind previous-buffer("v "p))
  131.     ;(keybind grow-buffer
  132.     ;(keybind shrink-buffer
  133.     ;(keybind goto-buffer (term)
  134.     ;(keybind used-buffers
  135.     ;(keybind count-buffer
  136.     }}}
  137. }}}
  138. {{{  !undo
  139. ;(keybind vi-undo-line (@if-using (USE_INSERT) $esc @fi "u))
  140. }}}
  141. {{{  Search and replace
  142. ; macro needed for query -- need to check trailing chars
  143. ; for regexp, call real query s/r for each item
  144. ; this means that there will have to be some internal bindings for commands
  145. ; which are not really to be provided -- internal mode?
  146. (keybind search-f (@if-using (USE_INSERT) $esc @fi "/) )
  147. (keybind search-r (@if-using (USE_INSERT) $esc @fi "?))
  148. (keybind il-search-f (@if-using (USE_INSERT) $esc @fi C-S))
  149. (keybind get-x-selection(@if-using (USE_INSERT) $esc @fi C-X))
  150. (keybind repeat-forward (@if-using (USE_INSERT) $esc @fi "n))
  151. (keybind repeat-reverse (@if-using (USE_INSERT) $esc @fi "N))
  152. }}}
  153. {{{  formating
  154. (keybind proper-toggle-case (@if-using (USE_INSERT) $esc @fi "~))
  155. ; <
  156. (keybind crm-shift-in (@if-using (USE_INSERT) $esc @fi ">))
  157. (keybind crm-shift-out (@if-using (USE_INSERT) $esc @fi "<))
  158. (keybind vi-append-to-previous-line (@if-using (USE_INSERT) $esc @fi "J))
  159. }}}
  160. {{{  repetition
  161. ;.
  162. ;&
  163. }}}
  164. {{{  getting out
  165. (keybind real-save-and-exit-origami (@if-using (USE_INSERT) $esc @fi "Z"Z))
  166. }}}
  167. {{{  !buffers
  168. ; @
  169. ; "
  170. }}}
  171. {{{  !marking
  172. ; m
  173. ; '' and `` are prefixes here, handled under gotos, need only 1 x,y coord
  174. }}}
  175. {{{  !tags and keywords
  176. ; ^] JSR tag
  177. ; ^t RTS
  178. ; K  look up keyword
  179. ; ^k should do completion in insert mode
  180. }}}
  181. {{{  !bells & whistles
  182.  
  183. {{{  Macros
  184. (keybind define-macro (@if-using (USE_INSERT) $esc @fi C-Y ))
  185. (keybind execute-macro (@if-using (USE_INSERT) $esc @fi C-E ))
  186. }}}
  187.  
  188. }}}
  189.  
  190. {{{  entering insert mode
  191. ;R
  192. ;c
  193. ;C
  194. {{{  Aa
  195. (keybind append(@if-using (USE_INSERT) $esc @fi "a))
  196. (keybind Append(@if-using (USE_INSERT) $esc @fi "A))
  197. }}}
  198. {{{  Ii
  199. (keybind insert (@if-using (USE_INSERT) $esc @fi "i))
  200. (keybind Insert (@if-using (USE_INSERT) $esc @fi "I))
  201. }}}
  202. {{{  Oo
  203. (keybind Open (@if-using (USE_INSERT) $esc @fi "O))
  204. (keybind open (@if-using (USE_INSERT) $esc @fi "o))
  205. }}}
  206. }}}
  207. {{{  entering ex mode
  208.   (keybind enter-ex-mode (@if-using (USE_INSERT) $esc @fi ":))
  209. }}}
  210. }}}
  211. {{{  basic stuff
  212. ;(keybind quote-character (@if-using (USE_INSERT) $esc @fi C-V))
  213. }}}
  214. {{{  extended mode /control tags
  215.   {{{  tags
  216.   (keybind push-tag (@if-using (USE_INSERT) $esc @fi C-]))
  217.   (keybind pop-tag (@if-using (USE_INSERT) $esc @fi C-T))
  218.   }}}
  219.   (keybind suspend-origami (@if-using (USE_INSERT) $esc @fi C-Z))
  220.   {{{  status line
  221.   (keybind status-line-off- (@if-using (USE_INSERT) $esc @fi "M "s "+))
  222.   (keybind status-line-on- (@if-using (USE_INSERT) $esc @fi "M "s "-))
  223.   }}}
  224.   {{{  extended mode and stop line mode
  225.   (keybind add-mode-extended (@if-using (USE_INSERT) $esc @fi "M "x "+))
  226.   (keybind delete-mode-extended (@if-using (USE_INSERT) $esc @fi "M "x "-))
  227.   (keybind del-line-stop-mode (@if-using (USE_INSERT) $esc @fi "M "l "s "-))
  228.   (keybind add-line-stop-mode (@if-using (USE_INSERT) $esc @fi "M "l "s "+))
  229.   }}}
  230.   {{{  wrap and fill para
  231.   (keybind vi-add-mode-wrap (@if-using (USE_INSERT) $esc @fi "M "w "+))
  232.   (keybind vi-delete-mode-wrap (@if-using (USE_INSERT) $esc @fi "M "w "-))
  233.   (keybind vi-set-fill-column (@if-using (USE_INSERT) $esc @fi "M "f "c))
  234.   (keybind vi-fill-paragraph (@if-using (USE_INSERT) $esc @fi "M "f "p))
  235.   }}}
  236.   {{{  goto mode
  237.   (keybind fast-goto (@if-using (USE_INSERT) $esc @fi "M "g "f))
  238.   (keybind slow-goto (@if-using (USE_INSERT) $esc @fi "M "g "s))
  239.   }}}
  240.   {{{  macros
  241.   }}}
  242.   {{{  errors
  243.   }}}
  244. }}}
  245.